|
4
|
How can I fit or ensure that all elements are in the control's client area
OleObject oSwimLane,var_Elements
oSwimLane = ole_1.Object
var_Elements = oSwimLane.Elements
var_Elements.Add("Element A",-500,-500).BackColor = RGB(0,255,0)
var_Elements.Add("Element B",500,500).BackColor = RGB(255,0,0)
var_Elements.Add("Element C",48,24)
oSwimLane.FitToClient()
|
|
3
|
Context Menu - Microsoft Windows 8.1 - Ribbon Like
OleObject oSwimLane,var_Appearance
oSwimLane = ole_1.Object
oSwimLane.BeginUpdate()
var_Appearance = oSwimLane.VisualAppearance
var_Appearance.Add(1,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_background.ebn")
var_Appearance.Add(2,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_groupt.ebn")
var_Appearance.Add(12,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_hot.ebn")
var_Appearance.Add(14,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_select.ebn")
var_Appearance.Add(17,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_tab.ebn")
var_Appearance.Add(18,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_tabhot.ebn")
var_Appearance.Add(30,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_radio0.ebn")
var_Appearance.Add(31,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_radio1.ebn")
var_Appearance.Add(32,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_check0.ebn")
var_Appearance.Add(33,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_check1.ebn")
var_Appearance.Add(34,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_buttonu.ebn")
var_Appearance.Add(35,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_buttond.ebn")
oSwimLane.Background(99,16777216 /*0x1000000*/)
oSwimLane.Background(64,33488638 /*0x1fefefe*/)
oSwimLane.Background(102,234881024 /*0xe000000*/)
oSwimLane.Background(148,16777216 /*0x1000000*/)
oSwimLane.Background(149,RGB(255,255,255))
oSwimLane.Background(155,201326592 /*0xc000000*/)
oSwimLane.Background(153,234881024 /*0xe000000*/)
oSwimLane.Background(110,201326592 /*0xc000000*/)
oSwimLane.Background(112,587202560 /*0x23000000*/)
oSwimLane.Background(2 /*0x2 | */,570425344 /*0x22000000*/)
oSwimLane.Background(3 /*0x3 | */,587202560 /*0x23000000*/)
oSwimLane.Background(70,536870912 /*0x20000000*/)
oSwimLane.Background(71,553648128 /*0x21000000*/)
oSwimLane.Background(73,503316480 /*0x1e000000*/)
oSwimLane.Background(74,520093696 /*0x1f000000*/)
oSwimLane.EndUpdate()
|
|
2
|
Context Menu - Microsoft Paint - Ribbon Like
OleObject oSwimLane,var_Appearance
oSwimLane = ole_1.Object
oSwimLane.BeginUpdate()
var_Appearance = oSwimLane.VisualAppearance
var_Appearance.Add(1,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_background.ebn")
var_Appearance.Add(2,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_groupt.ebn")
var_Appearance.Add(3,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_groupo.ebn")
var_Appearance.Add(4,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_grouphot.ebn")
var_Appearance.Add(5,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_frameh.ebn")
var_Appearance.Add(6,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehs.ebn")
var_Appearance.Add(7,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehi.ebn")
var_Appearance.Add(8,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehe.ebn")
var_Appearance.Add(9,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framevs.ebn")
var_Appearance.Add(10,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framevi.ebn")
var_Appearance.Add(11,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_frameve.ebn")
var_Appearance.Add(12,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_select.ebn")
var_Appearance.Add(13,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_bordert.ebn")
var_Appearance.Add(14,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_buttond.ebn")
var_Appearance.Add(15,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_buttonu.ebn")
var_Appearance.Add(16,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tab.ebn")
var_Appearance.Add(17,"CP:16 0 0 0 1")
var_Appearance.Add(18,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tabhot.ebn")
var_Appearance.Add(19,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tabselhot.ebn")
var_Appearance.Add(20,"CP:19 0 0 0 1")
oSwimLane.Background(99,16777216 /*0x1000000*/)
oSwimLane.Background(101,RGB(21,66,139))
oSwimLane.Background(102,234881024 /*0xe000000*/)
oSwimLane.Background(64,33488638 /*0x1fefefe*/)
oSwimLane.Background(148,16777216 /*0x1000000*/)
oSwimLane.Background(149,RGB(255,255,255))
oSwimLane.Background(155,218103808 /*0xd000000*/)
oSwimLane.Background(153,16777216 /*0x1000000*/)
oSwimLane.Background(2 /*0x2 | */,218103808 /*0xd000000*/)
oSwimLane.Background(105,83886080 /*0x5000000*/)
oSwimLane.Background(106,100663296 /*0x6000000*/)
oSwimLane.Background(107,117440512 /*0x7000000*/)
oSwimLane.Background(108,134217728 /*0x8000000*/)
oSwimLane.Background(116,150994944 /*0x9000000*/)
oSwimLane.Background(117,167772160 /*0xa000000*/)
oSwimLane.Background(118,184549376 /*0xb000000*/)
oSwimLane.Background(110,201326592 /*0xc000000*/)
oSwimLane.Background(112,251658240 /*0xf000000*/)
oSwimLane.EndUpdate()
|
|
1
|
Context Menu - Microsoft Office - Ribbon Like
OleObject oSwimLane,var_Appearance
oSwimLane = ole_1.Object
oSwimLane.BeginUpdate()
var_Appearance = oSwimLane.VisualAppearance
var_Appearance.Add(1,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_background.ebn")
var_Appearance.Add(2,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_groupt.ebn")
var_Appearance.Add(3,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_groupo.ebn")
var_Appearance.Add(4,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_grouphot.ebn")
var_Appearance.Add(5,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_frameh.ebn")
var_Appearance.Add(6,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehs.ebn")
var_Appearance.Add(7,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehi.ebn")
var_Appearance.Add(8,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehe.ebn")
var_Appearance.Add(9,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framevs.ebn")
var_Appearance.Add(10,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framevi.ebn")
var_Appearance.Add(11,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_frameve.ebn")
var_Appearance.Add(12,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_select.ebn")
var_Appearance.Add(13,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_bordert.ebn")
var_Appearance.Add(14,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_buttond.ebn")
var_Appearance.Add(15,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_buttonu.ebn")
var_Appearance.Add(16,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tab.ebn")
var_Appearance.Add(17,"CP:16 0 0 0 1")
var_Appearance.Add(18,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tabhot.ebn")
var_Appearance.Add(19,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tabselhot.ebn")
var_Appearance.Add(20,"CP:19 0 0 0 1")
oSwimLane.Background(99,16777216 /*0x1000000*/)
oSwimLane.Background(101,RGB(21,66,139))
oSwimLane.Background(64,33488638 /*0x1fefefe*/)
oSwimLane.Background(148,16777216 /*0x1000000*/)
oSwimLane.Background(149,RGB(255,255,255))
oSwimLane.Background(155,218103808 /*0xd000000*/)
oSwimLane.Background(153,16777216 /*0x1000000*/)
oSwimLane.Background(2 /*0x2 | */,218103808 /*0xd000000*/)
oSwimLane.Background(3 /*0x3 | */,16777216 /*0x1000000*/)
oSwimLane.Background(105,83886080 /*0x5000000*/)
oSwimLane.Background(106,100663296 /*0x6000000*/)
oSwimLane.Background(107,117440512 /*0x7000000*/)
oSwimLane.Background(108,134217728 /*0x8000000*/)
oSwimLane.Background(116,150994944 /*0x9000000*/)
oSwimLane.Background(117,167772160 /*0xa000000*/)
oSwimLane.Background(118,184549376 /*0xb000000*/)
oSwimLane.Background(110,201326592 /*0xc000000*/)
oSwimLane.Background(102,234881024 /*0xe000000*/)
oSwimLane.Background(112,251658240 /*0xf000000*/)
oSwimLane.EndUpdate()
|